home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / mmscpt12.arc / F.ASP < prev    next >
Text File  |  1991-06-08  |  1KB  |  74 lines

  1. ASSIGN S0 "MEOW"
  2. ASSIGN S2 "Z"
  3. ASSIGN S3 "DSZ port 1 sz"
  4. ASSIGN S4 "DSZ port 1 rz"
  5.  
  6. start3:
  7. STRFMT S5 "%s.UFI" S0
  8. ISFILE S5
  9. IF SUCCESS
  10.   STRFMT S6 "U %s" S2
  11.   ASSIGN S8 "**B01"
  12.   GOSUB xfr_file
  13. ENDIF
  14. STRFMT S5 "%s.DFI" S0
  15. ISFILE S5
  16. IF SUCCESS
  17.   STRCPY S3 S4
  18.   STRFMT S6 "D %s" S2
  19.   ASSIGN S8 "**B00"
  20.   GOSUB xfr_file
  21. ENDIF
  22. PAUSE 1
  23. TRANSMIT "G^M"
  24. WAITFOR "Thanks for calling," FOREVER
  25. PAUSE 1
  26. DATE S7
  27. TIME S8 0
  28. STRFMT S9 "ECHO %s %s - OFF LINE >> %s.TXT" S7 S8 S0
  29. DOS S9
  30. PAUSE 1
  31. HANGUP
  32. PAUSE 1
  33. QUIT
  34.  
  35. xfr_file:
  36.   FOPENI S5 TEXT
  37. xfr_next:
  38.   FGETS S7
  39.   IF NOT EOF
  40.     STRFMT S1 "%s %s^M" S6 S7
  41.     GOSUB describe
  42.     TRANSMIT S1
  43.     WAITFOR S8
  44.     PAUSE 1
  45.     STRFMT S9 "%s %s" S3 S7
  46.     DOS S9
  47.     PAUSE 1
  48.     WAITFOR "Main Board Command?" FOREVER
  49.     PAUSE 1
  50.     GOTO xfr_next
  51.   ENDIF
  52.   GOSUB clos_fil
  53. RETURN
  54.  
  55. describe:
  56.   STRCMP S8 "**B01"
  57.   IF SUCCESS
  58.     TRANSMIT S1
  59.     WAITFOR "?"
  60.     PAUSE 1
  61.     FGETS S9
  62.     STRFMT S1 "%s^M^M" S9
  63.   ENDIF
  64. RETURN
  65.  
  66. clos_fil:
  67.   FCLOSEI
  68.   PAUSE 1
  69.   STRFMT S9 "DEL %s" S5
  70.   DOS S9
  71.   PAUSE 1
  72. RETURN
  73.  
  74.